home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / ansi173c.zip / R-PCANSI.MRG < prev    next >
Text File  |  1992-05-10  |  3KB  |  68 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 9-1-1991  Size 151907 bytes
  4. * ------------[ Created 05-09-1992 23:49:37 ]------------
  5. * REPLACING old line(s) by new
  6. 175 GOSUB 5344
  7.     CALL CountLines (MaxEntries)
  8.     REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
  9.           ZCategoryDesc$(MaxEntries)
  10.     CALL InitFMS (ZNumCategories)
  11.     ZMaxMsgLines = ZMaxMsgLinesDef
  12.     IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
  13.        CALL OpenCom (ZModemInitBaud$,",N,8,1")
  14.     IF NOT ZSubBoard THEN _
  15.        CALL SetEcho (ZDefaultEchoer$)
  16.     ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
  17.                       "NODE" + _
  18.                       ZNodeFileID$ + _
  19.                       "WRK"
  20.     ZSecsPerSession! = ZMinsPerSession * 60!
  21.     LogIndex = 1                                                     ' TC090119
  22.     IF NOT ZLocalUserMode THEN _
  23.        IF NOT ZExitToDoors THEN _
  24.           GOTO 180 _
  25.        ELSE IF NOT ZLocalUser THEN _
  26.                GOTO 180
  27.     ZLocalUser = ZTrue
  28.     ZBPS = -6
  29.     ZBaudTest! = 9600
  30.     ZEightBit = ZTrue
  31.     ZSnoop = ZTrue
  32. '   LogIndex = 1                                                     ' TC090119
  33.     IF ZExitToDoors THEN _
  34.        CALL AMorPM : _
  35.        CALL ReadProf : _
  36.        GOTO 410
  37.     GOSUB 178
  38.     GOTO 345
  39. * REPLACING old line(s) by new
  40. 345 LOCATE 24,1
  41.     CALL AMorPM
  42.     ZUserLogonTime! = TIMER
  43.     ZTimeLoggedOn$ = TIME$
  44.     ZLinesPrinted = 0
  45.     ZExpertUserDef = ZExpertUser
  46.     ZExpertUser = ZFalse
  47.     CALL SetExpert
  48.     ZOutTxt$ = ""
  49.     IF NodesInSystem > 1 THEN _
  50.        ZOutTxt$ = " - Node " + ZNodeID$                              ' DA071701
  51.     IF ZReliableMode THEN _
  52.        ZOutTxt$ = ZOutTxt$ + " (Rel)"                                ' TC090101
  53.     IF ZRBBSName$ <> "" THEN _                                       ' TC090101
  54.        CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)       ' DA071701
  55.     ZTestParity = ZTrue
  56.     ZStopInterrupts = ZTrue
  57.     ZFileName$ = ZPreLog$
  58.     CALL FlushCom (WasX$)
  59. * ------[ first line different ]------
  60.     IF NOT ZLocalUser THEN _                                         ' ANSI173C
  61.        CALL AnsiTest                                                 ' ANSI173C
  62.     IF ZANSITest = ZTrue THEN _                                      ' ANSI173C
  63.        CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue) : _' ANSI173C
  64.        IF LEN(WasX$) < 8 THEN _                                      ' ANSI173C
  65.           ZWasDF$ = DR$ + WasX$ + "C" + Extension$ : _               ' ANSI173C
  66.           ZFileName$ = ZWasDF$                                       ' ANSI173C
  67.     ZCommPortStack$ = ""
  68.